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DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
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++ 

FACILITY: RMS32 

ABSTRACT: 
This module performs the basic Scomning of a directory 
file as an optimization to performing ACP Q10's for every 
file name in a directory file. 

ENVIRONMENT: 
VAX/VMS 

AUTHOR : 
Tim Halvorsen October, 1979 


MODIFIED BY: 


vO3-012 JwT0171 Jim Teague 23-Mar-1984 
Fix two broken branches. 
v03-011 JWT0166 Jim Teague 20-Mar-1984 


Use d nanicatly-el located scratch page for storing 
ATRs for Q10s. 


v03-010 DGB0009 Donald G. Blair 01-Mar-1984 
Change the way we call the ACP as part of the 
restructuring necessary to implement access mode 
protectes files. Also change to use RMSRMSFILENAME 
psect. 


v03-009 SRB0111 Steve Beckhardt 10-Feb-1984 
Added support for cluster operation of directory cache. 
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v03-008 RASO188 Ron Schaefer ay. a -1983 
Properly initialize directory buffer BDB so that the 


memory gets freed when the BDB is released. 


$$ ephen H. Zalewski, 25-Jan-1983 
ix pug in $HZ0001 that did not rotate IFBSL -EBK_DISK to 
irase BK after doing a read from disk. 


V03-006 $HZ0001 Stephen H. Zalewski, 16-Dec-1982 4:4 


0 
qove puappes and unswapped Longwords of EBK in different locations 


V03-005 RASO102 Ron Schaefer 4-Nov-1982 


Correct broken branch from RASO101. 


V03-004 RASO101 Ron Schaefer 22-0c t-1982 


When the attempt to read in a lg bo a buffer 

failed, because the directory was too 9. an ODS-I disk, 
or because of random 1/0 errors; the BD0B and buffer were 
not released, causing a gradual consumption of PO memory. 


V03-003 KBT0204 Keith B. Thompson 23-Aug-1982 


Reorganize psects 


v03-002 DMw4001 DMWal 8-Jul-1982 


So 


v02-008 JwWHOO01 


p 
Added check for zero size directory to be handled as 
a bad directory, rather then causing a loop. 


v03-001 TMKO0O01 Todd M. Katz 12- furetee 

Fix four broken branches by changing BSBWs (two t 

RMSF CPFNC _ALT2 and one to RMS$ALBDB and RMS$FCPFNC "Sech to JSBs. 
v02-070 JAKO0070 J A Krycka 02-FEB-1982 

Fix broken branch. 
V02-009 JwHO002 Jeffrey Ww. more 02-DEC-1981 

Add relative version number Also moved directory 


BOB definitions to RMSINTSIR, “mot BDB  aetinition. 


ey W. Horn 18-NOV-1981 
Change aulti-block. ie c to reflect removal of 
DIRSV_PREVREC flag. 


V02-007 JWH38296 Jeffrey W. Horn 22-SEP-1981 


Round up EBK,FFB pair to nearest block boundry if not on 
a block boundry. 


v02-006 JAK0060 J A Krycka 01-JUL-1981 


Fix broken branch. 


v02-005 peronnat Frederick E. Deen, Jr. 23-Jul-1980 
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08 
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12 
18 . 
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> 
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++ 
| 
RMSREADDIR - Read directory file into memory | 

This routine attempts to read the directory file into 

virtual memory owned by EXEC mode. A directory buffer 

descriptor is setup to contain the current status of 

the search thru the directory file. 


| 
| 
INPUTS: 
R11 = address of IMPURE AREA | 
R10 = FWA address 
R9 = IFAB address ; | 
DID of FWA is used as FID of directory, channel is assigned. | 
OUTPUTS: 


RO = status code (true if ok, error if could not be ead) 


R 
R 
1 
139 
138 
139 
140 
i! 
128 
144 
145 
146 
147 
148 
149 
150 
133 
138 
154 
iH 
157 EVAR, 050 = address of DBD, 6 if none allocated 
158 Ri-R7 destroyed. | 
159 :-- 
160 
161 RMSREADDIR: : | 
04 «€1 166 BBC #DEV$V_SDI,- ; branch if direc. structured 
06 69 16 IFBSL_PRIM_DEV(R9) ,10$ 
50 0828 8F 3¢ 164 MOVZWL #SS$_BADIRECTORY,RO : set unable to read directory 
05 165 5$: RSB 
QO0OA 166 | 
OOOA 167; 
QOOA 168 ; Allocate a BDB (buffer descriptor block). Miscellaneous 
QOOA 169 ; fields in the BDB will be used to hold scan context. 
O0O0A 170; 
QOOOA 171 
5A DD OO0A 76 10$: PUSHL R10 3; save R10 : 
5A 59 p00 QO00C 17 MOVL R9,R10 ; RMSALBDB wants IFB addr in R10 
00000000'EF 16 OOOF 17% JSB RMSALBDB : allocate BDB | 
5A B8EDO 0015 175 POPL R10 3; restore R10 
FEE 50 €9 0018 176 BLBC RO,5$ ; branch if error 
57 51 00 0018 177 MOVL R1,R7 ; save BDB address 
QOO1E 178 | 
QOO1E 179; 
OOiE 139 3 Allocate an ATR work area 
: 
OE 6B at; 136 PUSHR #*M<R1,R2,R3> ; Otherwise, save regs 
O0000000'EF 16 00 1 JSB RMSGETIPAG ; and get a scratch page 
8 AA 53 00 0026 184 MOVL R3,FWASL_ATR_WORK(R10) ; for an ATR work area 
55 53 DO OO2A 185 MOVL R3,R : address of work area in R5 
OE BA 002D 136 POPR #*M<R1,R2,R3> ; Restore regs | 
O2F 187 
Oee 1 § : : ; 
8 F 1 : Setup attributes List 
F odo’ | 
16 B80 : F 192 MOVW § #IFBSC_FHAEND-IFBSB_RFMORG,- =; file attributes 


1 5 | 
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5 31 193 (RS)+ | 
4 0 194 MOVW #ATRSC_RECATTR, (R5)+ 
85 (50 Ad F 35195 MOVAB IFBS$B_RFMORG(R9) , (R5)+ | 
5 S B 9 138 MOVW #4,(R5)+ ; file characteristics longword 
5 03 80 0 ¢ 19 OVW  #ATRSC_UCHAR, (R5)+ | 
85 44 AA 9E F 198 OVAB_ FWASW_OCHAR(R10) , (R5)+ | 
043 199 ASSUME FH2S$B-STRUCLEV LT 8 ; assume STRUCLEV in 1st quadword | 
85 08 80 8% 00 OvwW #8,(R5)+ ; Ist 8 bytes of file hder blk | 
B> DA BO 0046 201 OVW #ATRSC_HEADER, (R5)+ | 
85 O1A8 CA YE BR b¢ MOVAB FWAST_STATBLK(R10),(R5)+ 
65 D4& 004 CLRL (R5) | 
005 4 
005 23 | 
B828 06 ; Setup FIB fields 
BSS 
10 AA 40 BF 9A 0080 09 MOVZBL #FIBSC_LENGTH,FWAS$Q_FIB(R10) ; set length of FIB 
54 O1F4 CA 9E 909 10 MOVAB FWAST_FIBBUF (R10) ,R& ; address of FIB 
64 D4 OO05A 11 CLRL FIBSL_ACCTL(R4) ; allow other readers/writers 
04 AG OA AS 00 005C \¢ MOVL FIBSW_DID(R4) ,FIBSW_FID(R4) ; copy DID to FID 
08 AS OF AS BO 0061 1 MOVW FIBSW~D1D+4(R4) ,F 1BSW_FID+4(R4) 
OA AS DD 0066 14 PUSHL FIBSW_DID(R4) ; save did 
7E OE AS = 3C 0069 15 MOVZWL FIBSW_DID+4(R4) ,-(SP) : 
OA AS D4 006D 16 CLRL FIBSW_DID(R4) ; make sure did is 0 for 
OE AS BG boo \? CLRW FIBSW_DID+4(R4) 5 acp operation. 
007 19 ; ; | 
bao 231 3 Request file attributes from the ACP | 
he § 
00 dD 007 2 PUSHL #0 ; P6=0 ‘ : 
5B AA DD 0075 24 PUSHL FWASL_ATR_WORK(R10) ; PS = addr of attribute List 
7E 7C 0078 25 CLRQ -(SP) ; P3/P4 = 0 
00 DD OO7A 26 PUSHL #0 3; P2 = 
50. 60072 BF 5C_(O07C e? MOVZWL #10$_ ACCESS! IOSM_ACCESS,RO ; ACP function code 
QOOO0000'EF 16 0081 228 JSB RMSFCPFNC ; call ACP and wait for reply 
56 50 00 0087 229 MOVL RO,R6 3 save status 
54 O1F4 CA 9E QOBA 230 MOVAB FWAST_FIBBUF (R10) ,R4 ; 74 = address of fib 
OE AS «=6BE-— sé bOee 1 MOVW (SP)+,F IBSW_DID+4(R4) ; restore 3rd word of did 
8E 85 0093 3 TSTW (SP)+ ; add 2 to SP : 
OA A4& 8EDO 4943 37 POPL FIBSW_DID(R4) ; restore lower 2 words of did 
4444 36 ; Deallocate ATR work area 
3—E «6B $099 $ PUSHR #*M<R1,R2,R3,R4,R5> ; Yes, so save regs 
58 AA DO 0098 38 MOVL  FWASL_ATRWORK(R10) ,R4 : Provide address of page 
Q0000000'EF 16 O09F 9 JSB RMSRETIPAG ; to be deallocated 
58 AA D4 OQOAS 40 CLRL FWASL_ATR_WORK(R10) ; Indicate no work area now 
3— =6BA 74 rt POPR = #*M<RT,R27R3,R4,R5> ; Restore regs 
50. 56 00 AA 23 MOVL R6,RO ; restore status 
18 50 =E€8 ep rf: BLBS RO,20$ ; branch if ok 
46 ; 
ed ‘3 ; Process error - deallocate BDB and return with status 
49 . } 
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#AM<RO 
D acces 


R7_RG 
RM$RETBDB 
#°M<RO,R10> 


R10> 
Ss 


If the directory is not a director 
structure, then exit with error. 


#SS$_BADIRECTORY 


IREC RO : 
FWAST_STATBLK+FH2SB_STRUCLEV(R105 , 


70$ 
#FH2SV pare cony 


FWASW_OCHAR(R10) .70$ 


IFB$L_EBK_DISK(R9) ,R2 
$w_FFBTR9) 


$W_FFB(R9) 


, IFBSL_EBK(R9) 
#9,R2 


RMSG 


R2-BDBSW_SIZE(R7) 
R2.BDB$W-ALLOC_SIZE(R7) 
R3.BDBSL_ADDR(R7) 
R3,BDBSL—ALLOC_ADDR(R7) 


RMSGETCCB 

CCBSL_UCB(R1) ,R6 

UCBS$W~DIRSEQ(R6) ,- 
$W~DIRSEQ(R7) 


R 
UCB$W_DIRSEQ(R6) ,R7 
RMSARM_DIRCACHE 


R 
RO, 308 
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save status and FWA addr 
deaccess file 

RM$RETBDB wants IFB addr 
BDB addr t 


° 
deallocate dir. buffer and BDB 
restore STATUS and FWA add 


return with STATUS 


file or ODS-1 
only read ODS-2. 


ome invalid directory 
if not ODS-2 


3 then exit with error 


branch if not directory 


Allocate enough space to hold the entire directory file. 


swap words of FILES-11 EBK 
First free byte at blk bound? 


Branch if yes. 
No; Round up. 
Increment block number 


— 83> 
| 


in R10 


r 


EOF file always points to Last+1 
Test for zero size directory 
set to nbr of blocks in file 


convert blocks to bytes 
check if over 64k bytes 


if over max. transfer size, skip i 


allocate # blocks needed 
branch if not available 
store # bytes obtained 
store # bytes obtained 
and address of buffer 
and address of buffer 


Remember DIRSEQ at the start of the transfer. We will 
check if afterwards to verify the validity of the file. 


get CCB address in R1 
get UCB address 


save DIRSEQ value 


branch if AST is armed 


rearrange registers 


sel ahs s to seq. # in UCB 


arm 
restore r7 
repeat, if successful 


K 5 
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138 7 
138 3 3 
! : 44 : Read the entire directory file into the buffer 
138 311 
7E 7C 0138 \¢ 35$ CLRQ -(SP) ; P5/P6 = 0 
7E 01 7D 013D 1 mMOVQ #1,-(SP) ; P4 = 0, P3 = VBN 1 
7E 16 A727 3C 0140 314 MOVZWL BDBS$W_SIZE(R7),-(SP) : P2 = transfer size 
18 A7 be 0144 15 PUSHL BDBS$L_ADDR(R7) ; Pl = buffer address 
50.31 ¢ bpd 18 MOVZWL #10$_READVBLK,RO ; set 1/0 function code 
00000000" EF 16 014A 31 JSB RMSFCPFNC_NOF IB ; read directory file 
B1 50 €9 B12 18 BLBC RO,170$ : branch if error 
0183 330 
015 13 Check if DIRSEQ has changed while we were reading the 
015 ¢ : directory file. If so, then keep trying until it goes 
015 3 unchanged over the 1/0. This is to prevent invalid data 
B12 : : while in the middle of an ACP directory update. 
015 6° 
OOAC C6 «©B1 SOCO015 7 40$: CMPW UCBSW_DIRSEQ(R6) ,- ; DIRSEQ changed? 
14 A7 0157 8 ual adel 
CS «612 0159 9 BNEQ 0$ : if so, repeat transfer 
0158 0 
0158 21 3 - 
0158 $35 5 Deaccess the file 
0158 a2 4 
0158 334 ' 
13 10 0158 335 BSBB DEACCESS ; deaccess the file 
015D $39 
0150 37 ; / 
0150 338; Initialize directory scan context 
0150 339; 
015D 340 
1C A? 01 «=O 0150) = 341 MOVL #1,BDB$L_VBN(R7) ; set current VBN being searched 
18 A? DO 0161 2g MOVL BDBS$L_ADBR(R7),- 3 set address of next record 
4C A? 0164 34 BDB$L—RECORD(R?) ; 
48 A?) D4 0166 44 CLRL BDOBSL_VERSION(R7) ; set version uninitialized 
20 A? 4 4 a4 $2 CLRL BDBS$L_LAST(R7) ; set last rec adr uninitzd 
50 01 00 Q16C 47 MOVL #1,R0 : exit with success 
05 O16F 48 RSB 
0170 49 
b128 50 ; . 
17 51; Deaccess the file 
17 26 3 
17 5 
17 54 DEACCESS: 
7E 7C 8159 55 CLRQ -(SP) 3; PS/P6 = 0 
7E 7C 172 2 CLRQ -(SP) 3; P3/P4 = 
7 7C 0174 5 CLRQ -(SP) ; P1/P2 = 
50 34 3C 0176 28 MOVZWL #10$_DEACCESS,RO ; ACP function code — 
OOOO0000'EF 16 0179 5 JSB RMSFCPFNC_NOF f : call the ACP and wait for reply 
05 O17F 60 RSB 3; return with status 
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~-SBTTL RMSDIRSCAN, SEARCH FOR NEXT FILE IN DIRECTORY 


2a 


+ 
+ 


RMSDIRSCAN = Search for next file in directory 


This routine returns the next file name given the 
file name search string and the current search context. 


| 
| 
| 
| 
| 
Inputs: 
| 
| 


ag/Re = descriptor of file name/type/version string 
R? = directory BDB address 

R9 = IFAB address 

R10 = FWA address 
Outputs: 


RO = status code 

result name string stored in result buffer | 
IFBSL_RNS_LEN(R9) = Length of result name string 
BOBSL_VERSION = address of version entry 
BDBSL_RECORD = address of current record 


BDBS$L_VBN = block number currently being scanned 


AAASA AAA AA VO YS OOOO OCCOCOCOCOCCOOCOCOCOOOCOOOOCOOOOooO 
DOOOOOOOO0O0 OOOO 0 OO 00000009 09 09 0909 0909 NINN SII NNN NIAAA AOAAOAO 
CONAUELS WN OOD NOAU EWN 9 OD NAME WIN (OOO NAME WIN 9 OO NAME WN O ODNAUE WP 


me me ee ee ee ed aed = ed ed dS SS 2 8 2 8 wd = 2 8 8 = 2 a 8 8 3 2 8 I 8 3 2 Uh 


SOOOOCOCOSOSOSOOSOSOSOOCOCOCOSOOCOCOOCO COSCO OCSOSGOOOOCOOOOOCOCOOOOOOOCOOOOOOoOO 2VO 
Orrrrrrrrr Pr FP 0000000000 0000 09 09 09 09 00 09 C0 Gd CD CD CD CD C9 C9 C9 C9 09 C9 C9 C9. 09 09 09 C9 CO CO CD CD CD CD0D0D 


il D 

D 

RMSDIRSCAN:: D 

7E 0930 8F 3C¢ MOVZWL #SS$_NOMOREFILES,-(SP) 3 preset error status D 
18 A? D1 CMPL BDB$L_ADDR(R7),- ; is this the first search? D 

4C A7 BDBS$L_RECORD(R?) D 

OA 12 BNEQ 2$ ; branch if not D) 

48 A? D5 TSTL BDB$L_VERSION(R7) ; if first search, version=0 dD 

05 12 BNEQ : branch if not first search p) 

6— 0910 8F 3¢ MOVZWL #SS$_NOSUCHFILE, (SP) : if so, return NOSUCHFILE on error 4 
: D 

3 Save the snput parameters on the stack as: El 

3 (SP) = quadword descriptor of file name and type E: 

$ 4(SP) = version number (binary), -1=all, O=highest +} 

: F| 

0133 =30 2$: BSBW PARSE _NAME ; parse into string and version # F 

0450 £8 9 BLBS RO,5$ ; branch if successful F 

5E 04 CO C ADDL #4,SP ; POP status longword F 

05 F RSB ; return with status from PARSE_NAME F 

1C =6BB 0 8 5$: PUSHR #*M<R2,R3,R4> 3 Save parameters on STACK : 

09 ; F 

: : : Loop over each block of the directory until EOF | 4 

12° | F' 

1¢ A? D1 13 10$: CMPL BDB$L_VBN(R7),- ; EOF yet? F 

74 A9 5 4] TEBSLTEBK (R9) | lf 

03 18 ? 1 BLEQU 5$ ; if. not, continue : F 

00% 31 9 1 BRW 600$ : otherwise, exit with failure F 

51 1C A7 1 ¢3 C 17 15$: SUBL3 #1 3 pinmaimeaieleai ; block number - af F 
51 00000200 8F C4 1 41 muLL #5 12,R1 ; compute offset into directory | l 


RMODIRSCN READ DIRECTORY FILES Vg-seb=19 4 00:17:02 YAX/ Vis Macro V04-00 Page 9 | RI 
v04-00 RMSDIRSCAN, SEARCH FOR NEXT FILE IN DIRE -SEP-1984 16:21: RMS .SRCJRMODIRSCN.MAR; 1 (4) | Ps 
51 18 A7 CO 0188 419 ADDL BDgSL ADDR(R7),R1 i address of current block | 
55. O1FF C1 3 1BC =. 420 MOVAB 12-1TR1),R ; RS = Last byte of the block 
56 4 A? OO OIE] MOVL — BDBSL_RECORD(R7) ,R6 ; RO = address of current record | 
168 403 ; 
git 424 ; Loop over each record within the block 
gee age 
FFFF 8F 66 B1 QO1C5 427 208: CMPW alae da ; end of block marker? 
76 13 OCA 428 BEQL 00$ ; if so, skip to next block 
O1CC 429 
O1CC 430 ; 
443: ? 13: Verify the Length field of the current record 
01CC 133 
50 66 3C OQOICC 434 MOVZWL DIRSW pitt lye? me 3; get length of record | 
53 02 A046) SE OCF 435 MOVAB 2(RO)TR6),R3 ; R3 = address of next record 
55 53 Di 0104 436 CMPL R3,R5 ; outside of block boundary? 
03 18 0107 437 BLEGU 25$ ; branch ok ; 
0089 31 0109 438 BRW ERRDIR 3; exit with illegal dir format 
01DC 439 
O1DC 3 440 ; | 
O1DC 441; Pick up address of current version. If none, start at first. 
SIDE 448 | 
52 05 A6 QA OIDC 444 258: MOVZBL DIRSB_NAMECOUNT(R6) ,R2 ; R2 = # chars in name string 
54 4B AZ DO O1E0 445 MOVL  BDBSLIVERSION(R7) ,R4 : R4 = address of current version 
27) «12 «(O1E4 = 446 BNEQ 50$ ; branch if version ok 
54 07 A642 YE O1E6 447 MOVAB DIRSC_LENGTH+1(R6)CR21,R4 3; skip to first version 
54 54 01 CB O1EB 448 BICL3 #1,R4,R4 : ? 
5 F8 AS 9E OIEF 449 MOVAB = =-DIRSC_VERSION(RS5) ,RO ; highest allowable within block 
50 54 D1 O1F3 450 CMPL R4,RO ; outside of block boundary? 
6D 1A O1F6 451 BGTRU  ERRDIR : yes, bad directory format 
01F8 $26 
O1F8 45 
O1FB8 9454 ; | 
Bie $22 3 First version in record, see if we are starting a new file name 
O1F8 457 | 
3C «BB O1F8 458 30$:  PUSHR #*M<R2,R3,R4,R5> | 
51 20 A7 b9 O1FA 459 MOVL  BDBSL_LAST(R7).R1 
08 135 OIFE 460 BEQL 4 3; branch if there wasn't one 
06 A6 06 Al 52 29 0200 461 CMPC3) = R2,DIRST_NAME(R1) ,DIRST_NAME(R6); same as Last record? 
03 «13 9206 46¢ Bear «= 45$ : branch if so 
24 A? 4 0 4635 40$: CLRL BOBS$L_VERCOUNT (R7) ; first version of this filename 
3C~—Ofs«#&BA 8 38 re ¢) 45$: POPR #*M<R2,R3,R4,R5> 3; restore registers | 
020D 466 ; : : 
0500 ret : Determine if this record matches the input name and type 
§ 0D 469 
3¢)6=— BBSC«20D = «470-508: PUSHR #*M<R2,R3,R4,R5> 
53 0606 SE 0 OF 471 MOVAB DIRST_NAME(R6),R3 ; R2/R3 = name being checked 
54 10 AE 7D 13 of6 MOVa 4%4(SP) ,R4 ; R4&/RS = name pattern 
00000000°EF 16 0217 47 JSB FMGSMATCH_NAME : check if name matches | 
BA 1D 9474 POPR sy: R3,R4,R5> ; restore registers 
16 E9 O21F 475 BLBC =—_- RO, 2008 : if not, exit this record | 


N 5 
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veaitt RMSDIRSCAN, SEARCH FOR NEXT FILE IN DIRE ety 7 00:37:98 YRMS SRCJRMODIRSCN.MAR: 1 ~ (4). 
47 
159 
55 
rt ; Loop through each version entry looking for the desired one. 
482 ° 
3. + 8 a8s 60$: CMPL R4,R3 3; past last version? 
11 —s«1E 484 BGEGU 00s : branch if so 
50 08 AE B° 8 7 485 (SP),R 3; pick up desired version # 
0070 0 B 486 BSBW MATCH VERSION ; check if version entry matches 
1F 50 =E8 8 E re BLBS RO,500$ ; branch if match found 
54 08 CO 1 488 ADOL #OERSC_VERSION,R4 ; skip to next version entry 
sc 8S 4 489 BRB 60$ ; and keep looking 
0236 490 
0236 491; 
b¢36 236 : No match found. Exit with failure 
0236 493; 
Os 30 494 
3 Os 38 rh +4 600$: BRB EXIT 3; exit with status 
0238 497 ; 
0238 498; Skip to next record in the file 
0238 499 ; 
0238 500 
38 10 0238 501 200$: 8S8B NEXT _RECORD ; skip to next record 
28 50 «6&9 «023A = 6502 BLBC RO,E : if error, bad format directory 
48 A? D4 0230 503 CLRL BOBS$L_VERSION(R7) 3 mark no version address yet 
83 11 OSes ape BRB 20$ 3 scan this new record 
024 506 ; 
bse a4 3 We have searched an entire block. Skip to the next block. 
0242 509 ° 
1C A? D6 0342 510 300$: INCL BOBSL_VBN(R7) ; increment block number 
4C A7 01A5 9E 024 511 MOVAB 1(R5),BDB$L_RECORD(R7) 3 set record address to next block 
48 A? D4 024A 512 CLRL BOBS$L_VERSION(R7) ; clear version address 
a’ foe S43 a7 BRW 10$ : search this new block 
0250 515; 
0250 516; Match found. Exit with success 
Bab 
4C A756 0«=6D0 «0250 ) = 519 500$: MOVL R6,BDBSL_RECORD(R7) ; save record address 
08 AS =9E 0254 520 MOVAB DIRSC_VERSION(R4),~ ; set version address 
48 A7 0257 521 BDBS$L_VERSION(R7) 3 to the next version entry 
0116 30 0259 5 ¢ BSBW = RETURA_FID ; return FID to FIB buffer 
00c3 30 beat 25 BSBW CONSTROCT_NAME ; construct result file name 
Oc AE O01 00 Q25F 524 MOVL #1,12(SP) 3 set return status = successful 
06 11 0 63 325 BRB EX{iT 
§2 $37 : Illegal direct file f t 
: ega ector e forma 
0 65 i , : 
OC AE 0828 BF 3C¢ 6 o2 331 ERRDIR: MOVZWL #SS$_BADIRECTORY,12(SP) 3 set error status 


RMODIRSCN 
vos~008. 


FILES 16-SEP-1984 00:17: AX/VMS Macro V04-00 Page 11 
ARCH FOR NEXT FILE IN DIRE g- Eb 138i 90:37:98 YAMS SRC RMODIRSCN.MAR; 1 . (4) 
Deallocate directory buffer 


3; remove parameters from STACK 


73 
4; 
2 3 
: EXIT: ADDL #3*4,SP 
$ POPL RO 3 get return status 


6 | 
ubibti : 1 mie ts 9 90:37:08 Nae Macro V04-00 Page tg) | 


DIRE Y 
RECO S INE TO FIND NEXT REC -SEP-19 6:21: RMS.SRCIJRMODIRSCN.MAR; 1 
? 4} .SBTTL NEXT_RECORD, SUBROUTINE TO FIND NEXT RECORD | 
| 
7 rk p++ 
7 44; 
0 f re ; NEXT_RECORD = Find next record 
7 23 : This subroutine is called to skip to the next record 
027 48 ; in the directory file. 
027 49 ; 
027 50 ; Inputs: 
027 12 
8 7 26 : RG = address of current record 
8 4 7 : R5 = address of last byte of current block 
027 555 ; Outputs: 
027 556; = 
8 f e2f $ RO = true if successful, false if illegal directory format 
027 559 
0575 560 NEXT_RECORD: | 
0 6 Xt Ger 561 MOVZWL DIRSW_SIZE(R6),RO 3 get length of current record 
E 50 »d1 027 26 CMPL RO, - : minimum Length allowable | 
078 56 #DIRSC_LENGTH+DIRS$C_VERSION 
21 1F bs? 564 BLSSU 80$ ; branch if illegal 
2 A046 YE O27A 565 MOVAB 2(RO)CR6),R6 3 advance to next record in block 
5 56 D1 O27F 566 CMPL R6 : check if exceeded block boundary 
17 1A 0282 567 BGTRU 80$ : branch if illegal format 
F 66 B11 0284 568 CMPW DIRSW_SIZE(R6) ,A*XFFFF ; if end-of-block marker, skip check 
0c 13 0289 569 BEQL 208% ; branch if so 
0D 56 €8 0288 570 BLBS R6,80$ ; all records must be word aligned 
0A 66 «6©E8 «(028E) C5771 BLBS  DIR$W_SIZE(R6),80$ : and the size must also be in words 
f34 276 ASSUME DIRSC_FID EQ 0 , 
04 A6 93 = «=—0291 57 BITB DIR$B_FLAGS(R6),- ; check if DIRSV_TYPE=DIRSC_FID 
07 beae 574 #DIRSA_TYPE 
04 12 0295 £575 BNEQ 80$ 3; branch if not 
50 01 00 0297 576 20$: MOVL #1,R0 
05 029A 577 RSB . 
50 D4 0298 578 80S: CLRL RO ; illegal format record 
05 0290 579 RSB 
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R RY F 16-SEP-1984 00:17: AX/VMS Macro v04-00 Page 
sree tt ha MATCH VERSION. CHEER IF VERSION ENTRY MA sett 7 or i9e RMS.SRCIRMODIRSCN.MAR; 1 ° 
3 1 -SBTTL MATCH VERSION, CHECK IF VERSION ENTRY MATCHES 
gE ies 
3 5 : MATCH_VERSION = Check if version entry matches 
9E 3 : This routine checks if the current version entry matches 
3 8 3 the requested version number. 
o 3 30 : INPUTS: 
0 9E 3 : RO = requested version number 
9E 93 ; R7 = directory BDB address 
029E 94 ; R6 = address of current record 
O29E 595; R4 = address of current version entry 
$943 238 3 R2 = DIR$B_NAMECOUNT(R6) 
O29e 398 : OUTPUTS: 
i 600 ; RO = true if matches, else false 
O029E 601; R1 destroyed. 
ae 
029E 604 MATCH_VERSION: 
0B A? «95 O29E 605 TSTB BDB$B_VERTYP(R7) 3 check if wild version 
1E€ 14 at 606 BGTR 7 : if all, match immediately 
50 D5 O2A3 607 TSTL RO ; check version number 
10 19 bSa3 608 BLSS 60$ ; branch if relative 
Os. tz 02h9 rst BNEQ 50$ ; branch if specific value 
AQ 611 ; : 
O5a9 16 s Version = 0, match only highest version 
S5a9 la 
24 A7 DS O2A9 615 TSTL BDBSL_VERCOUNT(R7) ; is it first vers of file 
13. «13 O2AE o18 BEQL 70$ ; match if yes 
A 618 ; 
OSA 619 ; Version = #, check if matches 
OoAE 631 
: RSION(R4) ; check if matches 
- oe es $584 6 : ase BEOL oo -_ : if so, match immediately 
50 D4 8 83 624 CLRL RO 3: no match 
0D 11 0 Bo ? 2 BRB EXIT_MATCH 
7 a ? 
0o87 é : Relative version number, see if this one 
24 A7 «650 ~~ $sBF g ° 60$: CMPL RO, BDBS$L_VERCOUNT (R7) 3 current relative offset? 
06 13 O2BB 6 BEQL 70$ 4 3; yes, successful match 
50 D4 BD 6 5 CLRL RO 3; no match 
03 «(11 Bf 6 4 BRB EXIT_MATCH 
4 ee § 
C1 637; 


vind SS Ni READ DIRECTORY FILES ue th 9 90: 17:08 Aa Macro Vv04-00 
v04-000 MATCH_VERSION, CHECK IF VERSION ENTRY MA -SEP=-1984 16:21: RMS.SRCJRMODIRSCN.MAR; 1 

C1 638 ; Report successful match 

C} 6639 : 

C1 929 

50 01 00 C1 641 70$: MOVL #1,R0 3 match 
C4 pe) 
C4 645 EXIT_MATCH: 
24 D7 C4 644 DECL BDB$L_VERCOUNT (R7) ; bump version count 
20 A? «556 0 8 34 963 pov R6,BDB$L_LAST(R7) ; save adr of this record 
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RMODIRSCN READ DIRECTORY FILES 16-SEP-1984 00:17: AX/VMS Macro V04-00 Page 15 RM 
y0L-000 PARSE_NAME, PARSE FILE NAME STRING ets 7 98:34:98 RMS. SRCIRMODIRSCN.MAR; 1 et vO 
cf ot8 -SBTTL PARSE_NAME, PARSE FILE NAME STRING 
CC 650 +4 
6 Gol 3 
cc $26 ; PARSE_NAME = Parse file name string 
CE 623 § 
CC 656 § 
i‘. Oas 3 This routine parses the file name string into a 
cc 926 3 string composed of the file name and type and a 
O2cC 657 ; binary number representing the version number. 
O2cC 658 ; It is assumed that all portions of the file string 
8 te 223 ; are present (file name, type and version). 
O2CC 661 ; INPUTS: 
O2cCc 066 3 
O2ecC 665 ; Rg/ns = string descriptor 
O2CC 664 ; R7 = directory BDB address 
O2cC 665 Py | 
O2CC 666 ; OUTPUTS: 
O2CC 667 ; 
O2cC 668 ; RO = status — 
N2cc 669 ; R2/R3 = descriptor of file name/type string 
O2CC 670 ; R4 = version number 
O2CC 671 ;-- 
osce ore 
O2CC 673 PARSE_NAME: | 
54 D4 O2CC 674 CLRL RG i preset result to 0 
0B A?) 94 O2CE 675 CLRB BOB$B_VERTYP(R7) 3 preset version type to nonwild 
51 01 00 880, 676 MOVL #1,R1 i: preset base factor to 1 
35 D7? O02D4 677 10S: DECL ; decrement string size 
3 15 0206 678 BLEQ 40$ ; get out if string runs out 
50 O5%6 9A 0208 679 MOVZBL (R3)CR2],RO ; get last character 
2A 5 91 O2DC 680 CMPB RO,#*A'® 3 asterisk means all versions 
15 13 ODF 681 BEaL «= 20 : branch if so 
50 30 82 8 E1 ong SUBB #*A'O',RO : check lower bounds 
16 8619 E4 68 BLSS 30$ ; branch if not numeric | 
09 50 91 O2E6 684 PBs RO, #9 ; check upper bounds 
11 1A O2E9 685 BGTRU 30$ ; branch if not numeric | 
50 51 C& OQ2EB 686 MULL R1,R0 ; multiply by base factor 
54 50 CO O2EE 687 ADOL RO,R4 ; add to result | 
51 OA C4 O2F1 688 MULL = #10, R1 : multiply base by 10 
ee 8 re 34 BRB 10 
OB A? «6(01— 90 8 F6 691 208: MOVB #1 ,BDBSB_VERTYP(R7) ; set version type to 1 (wild) 
dBi 4 $36 BRB 10$ 3 and continue to remove semicolon 
50 6342 QA are 694 308: MOVZBL (R3)CR2],RO ; get last character 
o> 3 Fi 69 695 CMPB RO, #*A'= 3; Negative version? 
9? 12 0 69 BNEQ 40$ : no, branch 
54 4 cf 8 8 69 MNEGL R4,R4 i yes, negate binary version # 
5 3 8 698 DECL ; decrement ptr ing size 
50 9634 A pA 344 40$: MOVZBL (R3)CR2] RO ; get Last character 
38 OCS 91 ‘ 0 CMPB RO,#*A'; ; terminator must be ';' 
98 13 1 701 BEQL 9 : if so, exit ok 
2E 91 1s 2 ¢ CMPB RO,#*A'.' : alternate syntax 
36 13 18 7 BEQL 9 3 so, exit ok 
50 0820 8F 3C 1 704 MOVZWL #SS$_BADFILEVER,RO ; set error status 


LE NAME STRING 


RSB 
MOVL #1,R0 
RSB 


SSEP-198 


4 
4 


MRoe ne ee OSC INSCN HAR: 1 


3; exit 
3; success 
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F0.e008 CONSTRUCT_NAME, CONSTRUCT RESULT FILE NA mie 1 O37 598 RMS.SRCIJRMODIRSCN.MAR; 1 ° (8) 
108 -SBTTL CONSTRUCT_NAME, CONSTRUCT RESULT FILE NAME STRING | 
oF ++ 
aE 3 CONSTRUCT_NAME = Construct RESULT FILE NAME STRING 
715: | 
716 ; This routine constructs a result file name string 
0 (V7 3 given the address of the record and version entry 
0 718 ; which represents the file name. 
03 719 ; 
03 720 ; INPUTS: | 
03 722 ; R10 = FWA address 
03 7 - : R9 = IFAB address 
03 724 ; R6 = address of record 
03 725 ; R4 = address of version entry 
O35 726 ; 
03 727 ; OUTPUTS: 
0322 728; 
§355 188 5 RO-R3,R5 destroyed. 
032 730 ; Result ose ine is copied to buffer FWASQ_NAME 
O355 m1 3 IFBSL_RNS_LEN = result string Length 
032 £36 3= 
0322 73 
032 734 CONSTRUCT_NAME: 
53. 0174 CA D0 032 735 MOVL FWASQ_NAME+4(R10) ,R3 ; set result buffer address | 
50 05 A6 9A 0327 736 MOVZBL DIRSB-NAMECOUNT (R6) ,RO ; file name size | 
54 DD 0328 737 PUSHL R4 3 save version entry address 
63 06 A6 50 28 ba68 738 MOVC RO, DIRST_NAME (R6) , (R3) 3 copy to result buffer 
3B 90 0332 739 MOVB W*A's', (73)+ 3 append semi-colon | 
54 BEDO 0335 740 POPL 4 3 restore version address 
0338 741 
0338 ee 3 
0338 743; Bypass leading zeros 
0338 744 ; 
O38 745 
50 64 3¢C Q3 746 MOVZWL DIRSW_VERSION(R4) ,RO 3 get binary version number 
51 00002710 8F 0 b378 747 MOVL #10000,R1 3 divisor (largest is 65000) 
0B 1 342 748 10$: BEQL 208 ; branch if divisor hits zero 
52. 50 51 C7? 0344 749 DIVL3) R1,R0,R2 $ get upper digit 
05 12 0348 750 BNEG 208 : Branch if non-zero digit 
51 OA C6 O34A 751 DIVL #10,R1 3 go to next position down 
‘is B340 P36 BRB 10$ 3 continue skipping leading zeros 
or. ff 
O34F 754 ; 
74! £33 : Convert binary version number to ASCII | 
OF 757 | 
51 OD 4F £38 gps: TSTL R1 3; check divisor 
| eo 51 759 30$: BEQL 50% ; branch if divisor hits zero 
38 a mee © $23 760 DIVL3 R1.RO,R2 3 get upper cigit 
8 52 «30 1 5 761 ADDBS #*A'O',R2,(R3)+ 3 write character to buffer 
7E 00 50 2 & 5 106 EMUL #1,R0,40,-(SP) ; convert version to quadword 
50 50 ge 1 7B 0360 76 EDIV 1, (SP)+,R0,RO ; version = version mod divisor | 
1 OA C6 0365 764 Dive #10,R1 go to next position down | 
E7 11 68 765 BRB 30$ ; loop until done 


RMODIRSCN READ DIRECTORY FILES 16-SEP-1984 7: AX/VMS Macro V04-00 Page 1 
vest CONSTRUCT_NAME, CONSTRUCT RESULT FILE NA g- -SEP-19 38 98: 3 98 LRMS SRCIRMODIRSCN MAR: 1 (8) 
6C AO «65300 «=(0174 CA SC + Is § 508: SUBL3 fvase “HNC LENCROD 3; return result length 
1 IFBSL_RNS_LEN(R9) 
05 71 = 768 RSB 3 exit 


J 6 
ES 16-SEP-1984 00:17: 98 ue Macro V04-00 Page 19 | 
FID TO FIB BUFFER -SEP-1984 16:21: RMS.SRCJRMODIRSCN.MAR; 1 (9) | 


al 


ene peace READ 
v04-000 RETU 


on 
ss 

a 
cn 
ze 
ar 


DIRECTORY 
N_FID, RE | 
4 o70 -SBTTL RETURN_FID, RETURN FID TO FIB BUFFER 
7 ak p++ 
7 773; 
7 774 ; RETURN_FID = Return FID to FIB buffer 
tS Oe : | 
7 58 : Return the FID of the patches directory file name 
037 778; to the FIB buffer in the FWA. 
037 779 ; 
037 780 ; INPUTS: 
8 7 781 ; | 
7 7 ¢ 5 R10 = FWA address i 
O35 783 ; R4 = address of version entry 
037 784 ; 
037 785 ; Outputs: 
037 786 ; 
037 787 ; The FID is copied to the FIB. 
037 788 ;-- 
037 789 
0372 790 RETURN_FID: 
037 791 
037 138 : | 
037 793 ; Return FID to FIB buffer 
037 794 ; 
037 795 
50 O14 CA 9E 037 796 MOVAB FWAST_FIBBUF (R10) ,RO ; address of FIB 
02 A& D0 037 797 MOVL DIRSW_FID_NUM(R4) ,- 3; Copy num and seq | 
04 AO 037A 798 F IBS$W~F ID-NUM(RO) | 
06 AS «6©BO «(037C:~— 799 MOVW DIRS$W_FID_RVN(R4) ,- 3; copy relative volume 
08 AO 037F 800 F IBSW~F IDZRVN(RO) | 
0381 801 
0381 a6 3 - 
0381 803 ; If the relative volume number is 0, then substitute 
0381 eee : the relative volume number of its parent directory. 
0381 05 ; 
0381 806 
08 AO «(95 0381 807 TSTB = FIBS$B_FID_RVN(RO) ; check if low byte zero | 
05 «12 tt 808 BNEQ 60$ : branch if not zero 
OE AO 90 0386 $0) MOVB FIB$B_DID_RVN(RO),- ; substitute parent RVN 
08 AO 0389 810 F 1BSB~F ID-RVN(RO) 
05 0388 811 60S: RSB 3 exit | 


nannies any 
K 6 | 
VoeeO08 RETURN FID RETURN PID TO FIB BUFFER  SagePcioee So:21:45 LAMSERCTAMODINGCNMAR:1 2% (99) a 


O38¢ 896813 ~END 


a oe cell cd 
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RMODIRSCN 


; READ DIRECTORY FILES 1g SEP 1384 90:37:08 AX/VMS Macro Page $8 
Psect synopsis -SEP-1984 16:21: RMS .SRCIRMODI (10) 


$eoceoceccece oonnt 
: Psect synopsis ! 
peer oe eee we ee ome + 
PSECT name Allocation PSECT No. Attributes 
_ o : 9800000 ( 0.) 00 ¢ QO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
RMSRMSF ILENAME Q000038C (¢ 908.) 01 ¢ 1.) PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC BYTE 
00000000 < 0.) 02 ¢ 2.) NOPIC co ABS LCL NOSHR EXE RD WRT NOVEC BYTE 


Phase Page faults CPU Time Elapsed Time 
Initialization | 30 00:00:00.13 00:00:01.30 
Command processing 120 00:00:00.70 00:00:04.90 
ass 1 499 00:00:19.80 00:00:57.78 
Symbol table sort 0 00:00:03.42 00:00:07.17 
Pass 146 00:00:03.81 00:00:10.38 
Symbol table output 10 00:00:00.14 00:00:00.21 
Psect synopsis output 2 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 809 00:00:28.02 00:01:21.77 


The working set Limit was 1950 pages. : ; 

112711 bytes (221 pages) of virtual memory were used to buffer the intermediate code. 

There were 120 pages of symbol table space allocated to hold 2182 non-local and 40 local symbols. 
813 source Lines were read in Pass 1, producing 15 object records in Pass 2. 

2 pages of virtual memory were used to define 21 macros. 


$eowewewwecewccecceccccccon} 


! Macro Library statistics H 
pee en nee oer tee mOsm ee 


Macro Library name Macros defined 
-$255$DUA28: CRMS.OBJJRMS.MLB; 1 4 
_$255$DUA28: (SYS .OBJJLIB.MLB; 1 4 
$255$DUA28: CSYSLIBISTARLET.MLB;2 4 
TOTALS (all Libraries) 17 


2282 GETS were required to define 17 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:RMODIRSCN/OBJ=OBJ$:RMODIRSCN MSRC$:RMODIRSCN/UPDATE=(ENH$:RMODIRSCN) +EXECML$/LIB+LIB$:RMS/LIB 


ENT CORPORATION 
AND PROPRIETARY 


